# 1 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/ir_solidecho"
;ir_solidecho (TopSpin 2.0)
;
;TS3 / 03.06.2011
;
;Durham April 2016
;
;inversion recovery experiment
;pulse program is for 1D acquisition
;
;90-90 solid echo sequence for wide line observation
;
;set d6 to 5-100usec depending on dead time
;set d7 shorter than d6 by 3usec plus 10 dw to make
;sure the evolution of the echo is obvserved, then left shift
;FID prior to ft to get smallest possible 1st order pohase correction
;set receiver phase either with phcor0 or with HPCU receiver phase
;to get maximum signal in ADC channel A and almost no signal in channel B
;for minimum 0 order phase correction (no signal in channel B  is only
;possible if O1 exactly in center and spectrum perfectly symmetric).
;phase cycle will cancel deadtime partially, but not perfectly
;
;
;parameters:
;pl1 : X power level for 90
;p1 : X 90 degree pulse
;d1 : recycle delay
;d6 : echo delay
;d7 : =0, or no longer than d6-de
;ns : = 8*n
;d20 : delay in saturation pulse train
;l20 : number of pulses in saturation pulse train, 0 if undesired
;vdlist : list containing tau delays
;FnMode : QF
;
;
;$CLASS=Solids
;$DIM=pseudo 2D
;$TYPE=direct excitation
;$SUBTYPE=simple 1D
;$COMMENT=saturation recovery T1 experiment + 90-90 solid echo sequence for wide line observation

;cnst11 : to adjust t=0 for acquisition, if digmod = baseopt
"acqt0=0"
"p2=2.0*p1"

# 1 "mc_line 46 file /opt/topspin3.2/exp/stan/nmr/lists/pp/user/ir_solidecho dc-measurement inserted automatically"

    dccorr
# 46 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/ir_solidecho"
1 ze
2 10m
  d1
  (p2 pl1 ph4):f1
  d2			;recovery delay
  (p1 pl1 ph1):f1
  d6
  (p1 ph2):f1
  d7
  go=2 ph31 
  10m wr #0
HaltAcqu, 1m
exit
# 60 "/opt/topspin3.2/exp/stan/nmr/lists/pp/user/ir_solidecho"
ph0=0
ph1= 0 3 2 1 0 3 2 1
ph2= 3 2 1 0 1 0 3 2
ph31= 3 2 1 0 3 2 1 0
ph4=0


;$id: $
